home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / ICON_8 / TESTS / OVER.ICN < prev    next >
Text File  |  1990-03-02  |  377b  |  23 lines
  1. procedure main()
  2.    if not(&features == "large integers") then
  3.       stop("large integers not supported")
  4.    i := 100000 + 10000
  5.    write(i)
  6.    i +:= 2 ^ 30
  7.    write(i)
  8.    i +:= i
  9.    write(i)
  10.    i := 100000 * 10000
  11.    write(i)
  12.    i +:= 2 ^ 30
  13.    write(i)
  14.    i *:= i
  15.    write(i)
  16.    i := -100000 - 10000
  17.    write(i)
  18.    i +:= -(2 ^ 30)
  19.    write(i)
  20.    i -:= 2 ^ 30
  21.    write(i)
  22. end
  23.